From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 8 May 1993 16:45:38 +0000 (+0000)
Subject: Don't add menu bar to minibuffer-only frames.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96365
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e5a10c81691fb76bbb0b010a914e28efc088baf6;p=emacs.git

Don't add menu bar to minibuffer-only frames.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index a805999a086..5785a6cc4ae 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -194,9 +194,11 @@ and selects that window."
 ;;;	       (or (buffer-file-name) ""))))))
 
 ;; Give all existing frames a menu bar.
+;; (Except for minibuffer-only frames.)
 (let ((frames (frame-list)))
   (while frames
-    (modify-frame-parameters (car frames) '((menu-bar-lines . 1)))
+    (or (eq 'only (cdr (assq 'minibuffer (frame-parameters (car frames)))))
+	(modify-frame-parameters (car frames) '((menu-bar-lines . 1))))
     (setq frames (cdr frames))))
 
 ;; Make frames created from now on have a menu bar.